Public Class NotasDePedidos
    Dim ADRS As New ADCono.RazonesSociales
    Dim ADNP As New ADCono.NotasDePedidos

    Public Function ObtenerINP(Estado As String)
        Dim DS As DataSet
        DS = ADNP.ObtenerINP(Estado)
        Return DS
    End Function

    Public Function ObtenerINPConPEE(Estado As String, VPG As Long, TNP As Long, TPE As Long, CodClasificacion As Integer)
        Dim DS As DataSet
        DS = ADNP.ObtenerINPConPEE(Estado, VPG, TNP, TPE, CodClasificacion)
        Return DS
    End Function

    Public Function GenerarNP(ByVal CanTotNP As Double, ByVal FecNP As Date, ByVal ObsNP As String)
        Dim DS As New DataSet
        DS = ADNP.GenerarNP(CanTotNP, FecNP, ObsNP)
        Return DS
    End Function

    Public Function GenerarINP(ByVal CodINP As Integer, ByVal CodPro As Integer, ByVal CodCli As Integer, _
    ByVal CanINP As Double, ByVal FecEntINP As DateTime, ByVal ObsINP As String)
        Dim DS As New DataSet

        DS = ADNP.GenerarINP(CodINP, CodPro, CodCli, CanINP, FecEntINP, ObsINP)
        Return DS
    End Function

    Public Function ModificarINP(ByVal CodINP)
        Dim DS As New DataSet
        DS = ADNP.ModificarINP(CodINP)
        Return DS
    End Function

    Public Sub ItemsDeNPReservar(ByVal CodINP, CodIPP)
        ADNP.ItemsDeNPReservar(CodINP, CodIPP)
    End Sub
End Class
